home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / Config / WRITE.config < prev   
Text File  |  1993-12-27  |  16KB  |  585 lines
  1. /*
  2.  *  $VER: WRITE.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
  3.  */
  4.  
  5. IF Compare 3371 _Version;
  6.    NOP;
  7.    Ask "WRITE und WRITE.CONFIG haben eine unterschiedliche\n"+
  8.        "Versionsnummer\n"+
  9.        "Weiterparsen könnte gefährlich sein !"
  10.        "Stop & _Ende ^|_Weiter parsen *"
  11.    Break EQUAL _RN 0;
  12.  
  13.  
  14. /* Setzen der internen Variablen */
  15. /* ----------------------------- */
  16.  
  17. /* Lokal */
  18.  
  19. /* Standardeinstellungen */
  20.  
  21. /*
  22. SETVAR "_AColor"               1
  23. SETVAR "_BColor"               0
  24. SETVAR "_CColor"               3
  25. SETVAR "_DColor"               1
  26. SETVAR "_LoadTab"              8   /* Größe der Tabs beim Laden       */
  27. SETVAR "_SaveTab"              8   /*   "    "    "    "  Speichern   */
  28. SETVAR "_TabLength"            8   /*   "    "    "    "  Editieren   */
  29. SETVAR "_WordDef"              0   /* Wie wird ein Word definiert ??? */
  30. */
  31.  
  32. SETVAR "_AutoIndent"           5
  33. SETVAR "_ReadTabs"          TRUE   /* Konvertieren ja/nein ?          */
  34. SETVAR "_WriteTabs"        FALSE   /*       "       "  "              */
  35. SETVAR "_CaseSense"         TRUE
  36. SETVAR "_Optimize"          TRUE
  37. SETVAR "_ShowSpace"        FALSE
  38. SETVAR "_ShowEOL"          FALSE
  39. SETVAR "_FRPattern" "~(#?(.info|.bak))"
  40. SETVAR "_OverwriteIcon"    FALSE
  41. SETVAR "_WriteIcon"        FALSE
  42.  
  43.  
  44. /* Setzen der User-Funktionen */
  45. /* -------------------------- */
  46.  
  47. /*
  48.  * Die Diese Routine wird bei App-Aktionen
  49.  * mit dem Filenamen in _RS aufgerufen
  50.  */
  51.  
  52. SETUSERFKT 0 SETVAR "_Path" _RS
  53.              NewEd ""
  54.              Window 0 0 0 0
  55.              Open _Path;
  56.  
  57. /*
  58.  * Diese Routine wird aufgerufen,
  59.  * wenn das Closing-Gadgetgedrückt wird
  60.  */
  61.  
  62. SETUSERFKT 1 IF Compare FALSE _changed;
  63.                NOP;
  64.                Ask ("$_FileName$"\nist verändert worden !\n)+
  65.                     "Text geht verloren !"
  66.                     "_Ab_brechen ! ^|Ab_speichern & Ende *|_Ende"
  67.               Break EQUAL _RN 0;
  68.               IF Compare _RN 1;
  69.                 Save _FileName;
  70.                 NOP;
  71.               QuitEd;
  72.  
  73.  
  74. /* Die Tastaturbelegung */
  75. /* -------------------- */
  76.  
  77. CLEARKEYS
  78.  
  79. KEY "help"
  80.     MessageOK "Cursorkeys         : Bewegung im Text\n"+
  81.               "Shift hoch/runter  : Seite hoch/runter\n"+
  82.               "Shift links/rechts : Erster/letzter Buchstabe in d. Zeile\n"+
  83.               "alt   hoch/runter  : Erste/letzte Zeile\n"+
  84.               "alt   links/rechts : letztes/nächstes Wort\n"+
  85.               "<-                 : Backspace\n"+
  86.               "Del                : Delete"
  87.     MessageOK "Shift Del : Lösche bis EOL\n"+
  88.               "Ctrl  y   : Lösche Zeile\n"+
  89.               "F1-F5     : Setze Textmarke\n"+
  90.               "f1-f5     : Springe zu Textmarke\n"+
  91.               "Escape    : Iconify";
  92.  
  93. KEY "shift help"
  94.     Help;       /* Help-Menu */
  95.  
  96. KEY "control x"
  97.     GetNumber   "Schneide Block in Buffer :" 1
  98.     CopyBlock   _RN
  99.     DeleteBlock;
  100.  
  101. KEY "control c"
  102.     GetNumber   "Copiere Block in Buffer :" 1
  103.     CopyBlock   _RN
  104.     SetTitle    "Block kopiert." FALSE;
  105.  
  106. KEY "control v"
  107.     GetNumber   "Eeinfügen aus Buffer :" 1
  108.     InsertBlock _RN;
  109.  
  110. KEY "control <"
  111.     GetNumber   "Bewege Block x Spaltenn\nnach links :" 1
  112.     BlockLeft   _RN;
  113.  
  114. KEY "control >"
  115.     GetNumber   "Bewege Block x Spalten\nnach rechts :" 1
  116.     BlockRight  _RN;
  117.  
  118. /* Macros with buffer-selection */
  119.  
  120. KEY "control 1"
  121.     GetNumber "Speicher Makro :" 1
  122.     MacroRec _RN;
  123.  
  124. KEY "control 2"
  125.     MacroStop;
  126.  
  127. KEY "control 3"
  128.     GetNumber "Spiele Makro :" 1
  129.     MacroPlay _RN 1;
  130.  
  131. KEY "control 4"
  132.     GetNumber "Führe Makro aus" 1
  133.     SetVar    "_Reg1" _RN
  134.     GetNumber "Führe n mal aus" 1
  135.     MacroPlay _Reg1 _RN;
  136.  
  137. /* classic keys */
  138.  
  139. KEY "tab"       Tab 0;
  140. KEY "shift tab" BackTab;
  141.  
  142. KEY "escape" Iconify;
  143.  
  144. KEY "f1"       GoTextMark 0;   /* Textmarken auf  */
  145. KEY "shift f1" SetTextMark 0;  /* Funktionstasten */
  146. KEY "f2"       GoTextMark 1;
  147. KEY "shift f2" SetTextMark 1;
  148. KEY "f3"       GoTextMark 2;
  149. KEY "shift f3" SetTextMark 2;
  150. KEY "f4"       GoTextMark 3;
  151. KEY "shift f4" SetTextMark 3;
  152. KEY "f5"       GoTextMark 4;
  153. KEY "shift f5" SetTextMark 4;
  154.  
  155. /* durch F6 - F10 können f6 - f10 während Laufzeit belegt werden */
  156.  
  157. KEY "shift f6"
  158.      GetString "Geben sie den Text ein, mit dem\n"+
  159.                "sie Funktionstaste f6 belegen wollen :" _CurrentWord
  160.      KEY       "f6" WriteText _RS;;
  161.  
  162. KEY "shift f7"
  163.     GetString "Geben sie den Text ein, mit dem\n"+
  164.                "sie Funktionstaste f7 belegen wollen :" _CurrentWord
  165.     KEY       "f7" WriteText _RS;;
  166.  
  167. KEY "shift f8"
  168.     GetString "Geben sie den Text ein, mit dem\n"+
  169.                "sie Funktionstaste f8 belegen wollen :" _CurrentWord
  170.     KEY       "f8" WriteText _RS;;
  171.  
  172. KEY "shift f9"
  173.     GetString "Geben sie den Text ein, mit dem\n"+
  174.                "sie Funktionstaste f9 belegen wollen :" _CurrentWord
  175.     KEY       "f9" WriteText _RS;;
  176.  
  177. KEY "shift f10"
  178.     GetString "Geben sie den Text ein, mit dem\n"+
  179.                "sie Funktionstaste f10 belegen wollen :" _CurrentWord
  180.     KEY       "f10" WriteText _RS;;
  181.  
  182. /* Klassische Belegung des 10er-Blocks */
  183.  
  184. /*
  185. KEY "numpad shift 1" Goto _xPos _Length; /*  Tastaturbelegung für        */
  186. KEY "numpad shift 2" CursorDown 0;       /*  nummerische Tastatur        */
  187. KEY "numpad shift 3" PageDown 90;        /*  siehe Aufschrift auf Tasten */
  188. KEY "numpad shift 4" CursorLeft 0;       /*  Aktivierung mit SHIFT       */
  189. KEY "numpad shift 5" SetTitle "Marke gesetzt." FALSE
  190.                      SetMark;
  191. KEY "numpad shift 6" CursorRight 0;
  192. KEY "numpad shift 7" Goto _xPos 1;
  193. KEY "numpad shift 8" CursorUp 0;
  194. KEY "numpad shift 9" PageUp 90;
  195. KEY "numpad enter"   Return;
  196. */
  197.  
  198. /* Belegung für den Oberon-Compiler */
  199.  
  200. KEY "numpad shift 7" DoREXX "OberonError.wrx FIRST" {@ASYNC};
  201. KEY "numpad shift 1" DoREXX "OberonError.wrx LIST" {@ASYNC};
  202. KEY "numpad shift 4" DoREXX "OberonError.wrx PREV" {@ASYNC};
  203. KEY "numpad shift 6" DoREXX "OberonError.wrx NEXT" {@ASYNC};
  204. KEY "numpad shift 5" DoREXX "OberonError.wrx CURRENT" {@ASYNC};
  205.  
  206.  
  207. KEY "return"       Return;
  208.  
  209. KEY "delete"       Delete;
  210. KEY "shift delete" DeleteToEOL;
  211. KEY "control y"    DeleteLine;
  212.  
  213. KEY "backspace"    BackSpace 0;
  214.  
  215. KEY "right" CursorRight 0;
  216. KEY "left"  CursorLeft 0;
  217. KEY "up"    CursorUp 0;
  218. KEY "down"  CursorDown 0;
  219.  
  220. KEY "shift up"    PageUp   90;
  221. KEY "shift down"  PageDown 90;
  222. KEY "shift right" Goto @EOL @EOL;
  223. KEY "shift left"  Goto @SOL @SOL;
  224.  
  225. KEY "alt up"  Goto _xPos 1;        /*  zur 1. Zeile oder         */
  226. KEY "alt down" Goto _xPos _Length;  /* zur letzten Zeile springen */
  227.  
  228. KEY "alt left"  LastWord;
  229. KEY "alt right" NextWord;
  230.  
  231. /*
  232.  * alternates :
  233.  * Change number after CursorLeft/Right/Up/Down and BackSpace to 1
  234.  */
  235.  
  236.  
  237. /* Die Menüs */
  238. /* --------- */
  239.  
  240. CLEARMENU
  241.  
  242. MENU   "PROJEKT"
  243.   ITEM "Öffne..." "O"
  244.        IF Compare FALSE _changed;
  245.          NOP;
  246.          Ask ("$_FileName$"\nist verändert worden !\n)+
  247.               "Text geht verloren !"
  248.               "Ab_brechen ! ^|_Speichern  & neu öffnen *|_Neu öffnen"
  249.          Break EQUAL _RN 0;
  250.          IF Compare _RN 1;
  251.            Save _FileName;
  252.            NOP;
  253.        GetFile
  254.        Open _Path;
  255.   ITEM "Alten File neu laden" ""
  256.        IF Compare FALSE _changed;
  257.          NOP;
  258.          Ask ("$_FileName$"\nist verändert worden !\n)+
  259.               "Text geht verloren !"
  260.               "Ab_brechen ! ^|_Neu öffnen *"
  261.          Break EQUAL _RN 0;
  262.        Open _FileName;
  263.   ITEMBAR
  264.   ITEM "Setze/lösche... »" ""
  265.        NOP;
  266.   SUB  "Text unverändert" ""
  267.        SetVar "_changed" FALSE;
  268.   SUB  "Ändere Sleepmode" ""
  269.        IF Compare TRUE _SleepMode;
  270.          SetVar  "_SleepMode" FALSE;
  271.          SetVar  "_SleepMode" TRUE;;
  272.   SUB "Ändere EditMode" ""
  273.        IF Compare TRUE _EditMode;
  274.          SetVar  "_EditMode" FALSE;
  275.          SetVar  "_EditMode" TRUE;;
  276.   ITEMBAR
  277.   ITEM "Neu" ""
  278.        IF Compare FALSE _changed;
  279.          NOP;
  280.          Ask ("$_FileName$"\nist verändert worden !\n)+
  281.               "Text geht verloren !"
  282.               "Ab_brechen ! ^|_Speichern & löschen *|_Löschen"
  283.          Break EQUAL _RN 0;
  284.          IF Compare _RN 1;
  285.            Save _FileName;
  286.            NOP;
  287.        New
  288.        SetTitle "Text gelöscht." FALSE;
  289.   ITEMBAR
  290.   ITEM "Umbenennen..." "R"
  291.        GetString (Benenne\n"$_FileName$"\num...) _FileName
  292.        SetVar "_FileName" _RS
  293.        SetVar "_Path" _RS;
  294.   ITEM "Speichern" "S"
  295.        Save _FileName;
  296.   ITEM "Speichern als..." "A"
  297.        GetFile {@SAVE}
  298.        SetVar "_FileName" _Path
  299.        Save _FileName;
  300.   ITEM "Speichern als RAW..." ""
  301.        GetFile {@SAVE}
  302.        Save _Path {@RAW};
  303.   ITEM "Speichern & neu öffnen..." ""
  304.        Save _FileName
  305.        GetFile
  306.        Open _Path;
  307.   ITEM "Text ausdrucken" "*"
  308.        Save "PRT:";
  309.   ITEMBAR
  310.   ITEM "Neues Fenster »" "" NOP;
  311.     SUB "GROßES FENSTER" "B"
  312.         NewEd ""
  313.         Window   0  0   0  0;
  314.     SUB "kleines Fenster" "W"
  315.         NewEd ""
  316.         Window 100 50 100 50;
  317.   ITEM "Iconify" "I"
  318.        Iconify;
  319.   ITEM "Hide" ""
  320.        Hide;
  321.   ITEM "WinArranger" "§"
  322.        WinArranger;
  323.   ITEM "WinManager" "$"
  324.        WinManager;
  325.   ITEMBAR
  326.   ITEM "Über WRITE" "!"
  327.        About;
  328.   ITEMBAR
  329.   ITEM "Speichern & Verlassen" "E"
  330.        IF Compare FALSE _changed;
  331.          NOP;
  332.          Save _FileName;
  333.        QuitEd;
  334.   ITEM "Ende" "Q"
  335.        IF Compare FALSE _changed;
  336.          NOP;
  337.          Ask ("$_FileName$"\nist verändert worden !\n)+
  338.               "Text geht verloren !"
  339.               "Ab_brechen ! ^|_Speichern & Ende *|_Ende"
  340.          Break EQUAL _RN 0;
  341.          IF Compare _RN 1;
  342.            Save _FileName;
  343.            NOP;
  344.        QuitEd;
  345.  
  346. MENU   "EDIT"
  347.   ITEM "Undo" "ß"
  348.        Undo 1;
  349.   ITEM "Undo..." ""
  350.        GetNumber "Wieviel Schritte wollen\n"+
  351.                  "rückgängig machen ?" 1
  352.        Undo _RN;
  353.   ITEMBAR
  354.   ITEM "Setze Marke" "M"
  355.        SetTitle "Marke gesetzt." FALSE
  356.        SetMark;
  357.   ITEM "Lösche Marke" "U"
  358.        Unmark;
  359.   ITEMBAR
  360.   ITEM "Ausschneiden" "X"
  361.        CopyBlock 0
  362.        DeleteBlock;
  363.   ITEM "Kopieren" "C"
  364.        CopyBlock 0
  365.        SetTitle "Block kopiert." FALSE;
  366.   ITEM "Einfügen" "V"
  367.        InsertBlock 0;
  368.   ITEM "Löschen" ""
  369.        DeleteBlock;
  370.   ITEMBAR
  371.   ITEM "Clipboard »" ""
  372.        NOP;
  373.     SUB "Ausschneiden nach Clip" ""
  374.         CopyBlock 0
  375.         BufferToClip 0   0
  376.         DeleteBlock;
  377.     SUB "Nach Clip kopieren" ""
  378.         CopyBlock 0
  379.         BufferToClip 0   0
  380.         SetTitle "Block kopiert." FALSE;
  381.     SUB "Einfügen aus Clip" ""
  382.         ClipToBuffer 0   0
  383.         InsertBlock 0;
  384.     SUB "Buffer nach Clip" ""
  385.         BufferToClip 0   0;
  386.     SUB "Clip nachBuffer" ""
  387.         ClipToBuffer 0   0;
  388.   ITEMBAR
  389.   ITEM "Lösche Buffer" ""
  390.        ClearBuffer 0
  391.        SetTitle "OK." FALSE;
  392.   ITEM "Speicher Block als..." ""
  393.        CopyBlock 0
  394.        GetFile {@SAVE}
  395.        SaveBuffer _Path 0;
  396.   ITEM "Drucke Block" ""
  397.        CopyBlock 0
  398.        SaveBuffer "PRT:" 0;
  399.   ITEM "Füge File ein..." ""
  400.        GetFile
  401.        LoadBuffer _Path 0
  402.        InsertBlock 0;
  403.   ITEMBAR
  404.   ITEM "Block links" "<"
  405.        BlockLeft 1;
  406.   ITEM "Block rechts" ">"
  407.        BlockRight 1;
  408.   ITEM "Block linksbündig..." ""
  409.        GetNumber "Mache Block bündig zu Zeile :" _xPos
  410.        BlockLftAlig _RN;
  411.   ITEM "Block rechtsbündig..." ""
  412.        GetNumber "Mach Block bündig zu Zeile :" _xPos
  413.        BlockRghtAlig _RN;
  414.   ITEM "Zentriere Block..." ""
  415.        BlockCenter 1 80;
  416.  
  417.  
  418. MENU "INTERN"
  419.   ITEM "Parse Buffer..." ""
  420.        GetNumber "Parse Buffer :" 0
  421.        SetTitle "PARSING..." TRUE
  422.        ParseBuffer _RN
  423.        Flash;
  424.   ITEM "Parse Block" ""
  425.        CopyBlock 1
  426.        SetTitle "PARSING..." TRUE
  427.        ParseBuffer 1
  428.        Flash;
  429.   ITEM "Parse File..." ""
  430.        GetFile
  431.        LoadBuffer _Path 1
  432.        SetTitle "PARSING..." TRUE
  433.        ParseBuffer 1
  434.        Flash;
  435.   ITEMBAR
  436.   ITEM "Führe Buffer aus..." ""
  437.        GetNumber "Führe Buffer aus :" 0
  438.        SetTitle "EXECUTING..." TRUE
  439.        DoBuffer _RN
  440.        Flash;
  441.   ITEM "Führe Block aus" ""
  442.        CopyBlock 1
  443.        SetTitle "EXECUTING..." TRUE
  444.        DoBuffer 1
  445.        Flash;
  446.   ITEM "Führe Komando aus..." "D"
  447.        GetString "Bitte geben sie WRITE-Komandos ein :" ""
  448.        DoString _RS;
  449.   ITEM "Führe File aus..." ""
  450.        GetFile
  451.        LoadBuffer _Path 1
  452.        SetTitle "EXECUTING..." TRUE
  453.        DoBuffer 1
  454.        Flash;
  455.   ITEMBAR
  456.   ITEM "Nehme Makro auf" "1"
  457.         MacroRec 0;
  458.   ITEM "Stoppe  Aufnahme" "2"
  459.         MacroStop;
  460.   ITEM "Spiele ab" "3"
  461.         MacroPlay 0 1;
  462.   ITEM "Speile mehrmals ab..." "4"
  463.         GetNumber "Replay it n times " 1
  464.         MacroPlay 0 _RN;
  465.  
  466.  
  467. MENU   "EXTERN"
  468.   ITEM "Neue Shell" "."
  469.        System "NewShell";
  470.   ITEM "DOS-Execute..." ""
  471.        GetString "Geben sie ein CLI-Komando ein :" ""
  472.        System _RS {@ASYNC};
  473.   ITEMBAR
  474.   ITEM "Lösche File..." ""
  475.        GetFile;
  476.   ITEM "Erschaffe Directory..." ""
  477.        GetFile {@SAVE};
  478.   ITEMBAR
  479.   ITEM "Font..." ""
  480.        GetFont;
  481.  
  482. MENU "REXX"
  483.   ITEM "Führe Rexx aus..." ""
  484.        GetString "Geben sie ein REXX-Komando ein :" ".wrx"
  485.        DoREXX _RS {@ASYNC};
  486.   ITEMBAR
  487.  
  488. MENU "UTLITIES"
  489.   ITEM "Schreibe Zeichen..." ""
  490.        GetNumber "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  491.        WriteChar _RN;
  492.   ITEM "Zeige Zeit & Datum" "T"
  493.        MessageOK "Aktuelle Zeit ist :\n$_Time$";
  494.   ITEMBAR
  495.   ITEM "UPPER word" "^"
  496.        UpperBlock @SOW @EOW;
  497.   ITEM "lower word" "#"
  498.        LowerBlock @SOW @EOW;
  499.   ITEMBAR
  500.   ITEM "Match Bracket" "("
  501.        MatchBracket;
  502.  
  503. MENU   "SEARCH"
  504.   ITEM "Finde..." "F"
  505.        GetFindReplace _FindString ""
  506.        Find @CURSOR @CURSOR @EOT @EOT;
  507.   ITEM "Finde noch einmal" "N"
  508.        Find @CURSOR @CURSOR @EOT @EOT;
  509.   ITEMBAR
  510.   ITEM "Ersetze..." "Y"
  511.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  512.        Replace @CURSOR @CURSOR @EOT @EOT;
  513.   ITEM "Ersetze noch einmal" "Z"
  514.        Replace @CURSOR @CURSOR @EOT @EOT;
  515.   ITEM "Ersetze alle..." ""
  516.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  517.        Replace @CURSOR @CURSOR @EOT @EOT {@ALL}
  518.        Flash;
  519.   ITEM "Ersetze alle schnell..." ""
  520.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  521.        Silent
  522.        Replace @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ}
  523.        Window 0 0 0 0;
  524.   ITEM "Ersetzte schnell im Block..." ""
  525.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  526.        Silent
  527.        Replace @MARKA @MARKA @MARKB @MARKB {@ALL @SILENT @NOREQ}
  528.        Window 0 0 0 0
  529.        Flash;
  530.   ITEMBAR
  531.   ITEM "Suche nach Muster..." ""
  532.        GetString "Bitte geben sie das Suchmuster an :\n(Case)" _PatCase
  533.        SetVar "_PatCase" _RS
  534.        FindPattern {@CASE};
  535.   ITEM "Suche noch einmal" ""
  536.        FindPattern {@CASE};
  537.   ITEM "Suche nach Muster (no Case)..." "Ö"
  538.        GetString "Bitte geben sie das Suchmuster an :\n(No case)" _PatNoCase
  539.        SetVar "_PatNoCase" _RS
  540.        FindPattern {@NOCASE};
  541.   ITEM "Suche noch einmal" "Ä"
  542.        FindPattern {@NOCASE};
  543.   ITEMBAR
  544.   ITEM "Springe zu Zeile..." "G"
  545.        GetNumber "Springe zu Zeile :" _yPos
  546.        Goto _xPos _RN;
  547.   ITEMBAR
  548.   ITEM "Zeige Index..." "J"
  549.        GetString "Bitte geben sie das Suchmuster\n"+
  550.                  "für den Index an :" "#?#?"
  551.        ShowIndex _RS {@CASE};
  552.  
  553.  
  554. MENU   "PREFS"
  555.   ITEM "Globale Prefs" ""
  556.        GPrefs;
  557.   ITEM "Prefs" "+"
  558.        Prefs;
  559.   ITEMBAR
  560.   ITEM "Lade Konfiguration..." ""
  561.        SetVar "_Path" _ConfigPath
  562.        GetFile
  563.        LoadBuffer _Path 1
  564.        SetTitle "EXECUTING..." TRUE
  565.        DoBuffer 1
  566.        Flash;
  567.   ITEMBAR
  568.   ITEM "Zeige Konfiguration" ""
  569.        SetVar "_Path" _ConfigPath
  570.        GetFile
  571.        NewEd ""
  572.        Window 0 0 0 0
  573.        Open _Path;
  574.  
  575. MENU   "HELP"
  576.   ITEM "Zeige Variablen" ""
  577.        ShowVars;
  578.   ITEM "Zeige Funktionen" ""
  579.        ShowFunctions;
  580.   ITEM "Zeige ASCII-Codes" ""
  581.        ShowASCII;
  582.   ITEM "Hilfe zu Stichwort..." "?"
  583.        GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
  584.        GuideHelp _RS;
  585.